home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / logolib / map < prev    next >
Encoding:
Text File  |  1992-09-04  |  320 b   |  12 lines  |  [TEXT/JV01]
  1. to map :map.template [:template.lists] 2
  2. op map1 :template.lists 1
  3. end
  4.  
  5. to map1 :template.lists :template.number
  6. if emptyp first :template.lists [output first :template.lists]
  7. output combine (apply :map.template firsts :template.lists) ~
  8.                (map1 bfs :template.lists :template.number+1)
  9. end
  10.  
  11. bury [map map1]
  12.